home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / FPCSMHYS.SRC < prev    next >
Text File  |  1990-11-06  |  10KB  |  390 lines
  1. ;\|
  2. ;FPCSMHYS.SRC     Translated from FPCSMHYS.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;FPCTARG  11:17:13 AM  18/ 6/90   |
  4.     define(RESULT|A|1||)
  5.     define(Q_END|S|8||)
  6.     define(IN_BY|S|8||)
  7.     define(CONTYN|A|1||)
  8.     define(DOB1|S|8||)
  9.     define(GP_CODE|A|4||)
  10.     define(DATE_HOLD|S|8||)
  11.     define(PC_ATE|N|5|2|)
  12.     define(PC_SEV|N|5|2|)
  13.     define(PC_SIX|N|5|2|)
  14.     define(PC_NINE|N|5|2|)
  15.     define(PC_FIVE|N|5|2|)
  16.     define(TOT_WOM|N|4||)
  17.     define(TOT_HYS|N|4||)
  18.     define(TOT_ELIG|N|4||)
  19.     define(TOT_SMOK|N|4||)
  20.     define(TOT_SMOKG|N|4||)
  21.     define(TOT_SMNO|N|4||)
  22.     define(TOT_SMNOG|N|4||)
  23.     define(CTR|N|2||)
  24.     define(DOB2|S|8||)
  25.     define(SM_CTR|N|3||)
  26.     define(MEM_DOC|N|1||)
  27.     define(NO_CTR|N|4||)
  28.     define(YES_CTR|N|4||)
  29.     define(TOT_CTR|N|4||)
  30.     define(MINUS|N|4||)
  31.     define(PERCENT|N|5|2|)
  32.     define(TO_DATE|S|8||)
  33.     define(DOC_NAME|A|23||)
  34.     define(TD|S|8||)
  35.     define(S_CTR|N|4||)
  36.     define(F_CTR|N|4||)
  37.     define(H_CTR|N|4||)
  38.     define(O_CTR|N|4||)
  39.     define(OPC|N|5|2|)
  40.     define(HPC|N|5|2|)
  41.     define(SPC|N|5|2|)
  42.     define(FRPC|N|5|2|)
  43.     define(TD|S|8||)
  44.     date(TD|G)
  45.     open(GPSETUP||0|)
  46.     open(PATIENT||0|)
  47.     open(RECALLS||0|)
  48.     open(MEMORY||0|)
  49.     trap(q|g|exit2)
  50. START:
  51.     mount(NEWS|S)
  52.     find(B|MEM_NAME|EXIT2|)
  53.     enter(IN_BY||||N|N|N|||N)
  54.     enter(Q_END||||N|N|N|||N)
  55.     enter(TO_DATE||||N|N|N|||N)
  56.     DOB1 = (TO_DATE-23741)
  57.     DOB2 = (TO_DATE-9131)
  58.     enter(DOB1||||N|N|N|||N)
  59.     enter(DOB2||||N|N|N|||N)
  60.     enter(CONTYN|"YN"|||Y|Y|N|||N)
  61.     if CONTYN <> ("Y") goto START
  62.     MEM_DOB1 = (DOB1)
  63.     MEM_DOB2 = (DOB2)
  64.     MEM_TO_DATE = (TO_DATE)
  65.     MEM_DOC = (1)
  66.     save(MEMORY|N|Y)
  67.     trap(I|G|EXIT2)
  68. STARTER:
  69.     gosub MOUNT
  70.     find(B|HEADING||)
  71.     DOC_NAME = (RPDOCTOR[MEM_DOC])
  72.     if MEM_DOC = (1) then GP_CODE = ("V4")
  73.     if MEM_DOC = (2) then GP_CODE = ("G44")
  74.     if MEM_DOC = (3) then GP_CODE = ("P21")
  75.     if MEM_DOC = (4) then GP_CODE = ("N16")
  76.     trap(P|S|SHEADING)
  77.     ptof
  78.     DATE.OF.BIRTH = (DOB1)
  79.     find(B|COD.PAT.NAME|EXIT|)
  80. TEST:
  81.     if COD[1] = ("") do
  82.         {
  83.         if COD.D[1] = (0) then goto NEXT
  84.         }
  85.     RECORD.NUMBER = (COD.REF)
  86.     find(M|RECORD.NUMBER|EXIT|)
  87.     pmsg(DATE.OF.BIRTH|1|1|N|N|S|)
  88.     if DOCTOR <> (MEM_DOC) goto NEXT
  89.     if SEX <> ("F") goto NEXT
  90.     if DATE.OF.BIRTH > (DOB2) goto NEXT
  91.     if DATE.OF.BIRTH < (DOB1) goto NEXT
  92.     TOT_WOM = (TOT_WOM+1)
  93.     gosub FINDREC
  94. NEXT:
  95.     find(N|RECALLS|EXIT|)
  96.     goto TEST
  97. FINDREC:
  98. NO_IMDATE:
  99.     if COD[1] = ("HYS") do
  100.         {
  101.         TOT_CTR = (TOT_CTR+1)
  102.         TOT_HYS = (TOT_HYS+1)
  103.         pfmt(7|||N|N|)
  104.         }
  105.     if COD[1] <> ("HYS") do
  106.         {
  107.         if COD[1] = ("REF") goto ERUM
  108.         if COD[1] = ("VIR") goto ERUM
  109.         if SM_DATE < (TO_DATE-2005) then TOT_SMNO = (TOT_SMNO+1)
  110.         if SM_DATE > (TO_DATE-2005) do
  111.             {
  112.             if WHERE = ("H") then SM_CTR = (SM_CTR+1)
  113.             if WHERE = ("F") then SM_CTR = (SM_CTR+1)
  114.             TOT_SMOK = (TOT_SMOK+1)
  115.             }
  116.         }
  117.     ret
  118. ERUM:
  119.     TOT_SMNO = (TOT_SMNO+1)
  120.     ret
  121. NOCOD:
  122.     clr(RECALLS|B)
  123.     goto NEXT
  124. SHEADING:
  125.     pfmt(1|||N|N|)
  126.     pfmt(2|||N|N|)
  127.     pblnk(1)
  128.     pfmt(3|||N|N|)
  129.     pblnk(2)
  130.     pfmt(4|||N|N|)
  131.     pblnk(1)
  132.     pfmt(5|||N|N|)
  133.     pfmt(6|||N|N|)
  134.     ret
  135. MOUNT:
  136.     pchr(P|4)
  137.     mount(NEW1|R|P)
  138.     pset(132|70|66)
  139.     pchr(P|1)
  140.     ret
  141. EXIT:
  142.     pfmt(8|||N|N|)
  143.     trap(P|D)
  144.     ptof
  145.     TOT_SMOKG = (TOT_SMOK-SM_CTR)
  146.     MINUS = (TOT_WOM-TOT_HYS)
  147.     PC_ATE = (MINUS * 80/100)
  148.     PC_FIVE = (MINUS * 50/100)
  149.     PC_SEV = (TOT_SMOKG/PC_ATE * 100)
  150.     PC_SIX = (TOT_SMOKG/PC_FIVE * 100)
  151.     PC_NINE = (TOT_SMOK/MINUS * 100)
  152.     gosub ENDPAGE
  153.     TOT_CTR = (0)
  154.     MINUS = (0)
  155.     PC_ATE = (0)
  156.     PC_FIVE = (0)
  157.     PC_SEV = (0)
  158.     PC_SIX = (0)
  159.     PC_NINE = (0)
  160.     SM_CTR = (0)
  161.     TOT_WOM = (0)
  162.     GP_CODE = ("")
  163.     TOT_HYS = (0)
  164.     TOT_ELIG = (0)
  165.     TOT_SMOK = (0)
  166.     TOT_SMOKG = (0)
  167.     TOT_SMNO = (0)
  168.     TOT_SMNOG = (0)
  169.     MEM_DOC = (MEM_DOC+1)
  170.     if MEM_DOC > (4) goto EXIT2
  171.     goto STARTER
  172. EXIT2:
  173.     run("FPCSMOK")
  174. ENDPAGE:
  175.     mount(LASTPAGE|R|P)
  176.     pset(132|70|66)
  177.     pchr(P|1)
  178.     for(CTR|1|30|1)
  179.         {
  180.         pfmt(CTR|||N|N|)
  181.         }
  182.     ptof
  183.     pfmt(1|||N|N|)
  184.     pfmt(2|||N|N|)
  185.     pblnk(1)
  186.     pfmt(3|||N|N|)
  187.     pblnk(2)
  188.     pfmt(31|||N|N|)
  189.     pblnk(1)
  190.     pfmt(10|||N|N|)
  191.     pblnk(1)
  192.     pfmt(32|||N|N|)
  193.     pblnk(1)
  194.     pfmt(33|||N|N|)
  195.     pblnk(2)
  196.     pfmt(34|||N|N|)
  197.     pblnk(3)
  198.     pfmt(35|||N|N|)
  199.     pblnk(1)
  200.     pfmt(36|||N|N|)
  201.     pblnk(1)
  202.     pfmt(37|||N|N|)
  203.     pfmt(38|||N|N|)
  204.     pblnk(2)
  205.     pfmt(39|||N|N|)
  206.     pblnk(1)
  207.     pfmt(40|||N|N|)
  208.     pblnk(1)
  209.     pfmt(41|||N|N|)
  210.     pblnk(1)
  211.     pfmt(42|||N|N|)
  212.     ptof
  213.     ret
  214. \STNEWS    
  215.  
  216.  
  217.  
  218.  
  219.  
  220.  
  221.                             SMEARS
  222.                  FPC TARGET PRINT OUTS 12" PAPER (Plain)
  223.              ╔═══════════════════════════════════════╗
  224.              ║       To FPC by date:&                ║
  225.              ║        Pay by date  :&                ║
  226.              ║             FPC TARGET DATE:&         ║
  227.              ║ FROM DATE OF BIRTH - LOWEST:&         ║
  228.              ║  TO DATE OF BIRTH - HIGHEST:&         ║
  229.              ║      Continue Y/N:&                   ║
  230.              ╚═══════════════════════════════════════╝
  231.                                ESC-EXIT
  232.  
  233.  
  234.  
  235.  
  236.  
  237.  
  238.  
  239. \
  240. IN_BY
  241. Q_END
  242. TO_DATE
  243. DOB1
  244. DOB2
  245. CONTYN
  246. \
  247. \R NEW1    
  248. &                                                    NORTH YORKSHIRE                             Date:&
  249.                                                 FAMILY PRACTITIONER COMMITTEE
  250.                                       LIST OF WOMEN FOR GP CYTOLOGY TARGETS AS AT : &
  251.                                             Women Who Are Excluded From The Target
  252. Surname        Forename             Nhs Number      Date Of Birth   Rcl Date     Test Date Result  Under GMS Y/N
  253. ===========================         ==========      =============   ========     ========  ======  =============
  254. &                                   &               &               &            &         &       &
  255. Total:&
  256. &                            Exception check it!
  257.  
  258.  
  259.  
  260.  
  261.  
  262.  
  263.  
  264.  
  265.  
  266.  
  267.  
  268.  
  269.  
  270.  
  271.  
  272.  
  273.  
  274.  
  275.  
  276.  
  277.  
  278.  
  279.  
  280.  
  281.  
  282.  
  283.  
  284.  
  285.  
  286.  
  287.  
  288.  
  289.  
  290.  
  291.  
  292.  
  293.  
  294.  
  295.  
  296. \
  297. DOC_NAME
  298. TD
  299. TO_DATE
  300. PATIENT.NAME
  301. NHS.NUM
  302. DATE.OF.BIRTH
  303. COD.D[1]
  304. SM_DATE
  305. COD[1]
  306. WHERE
  307. TOT_CTR
  308. PATIENT.NAME
  309. \
  310. \R LASTPAGE
  311.                                                       NORTH YORKSHIRE                                          Date:&
  312.                                               FAMILY PRACTITIONER COMMITTEE
  313.                                       LIST OF WOMEN FOR GP CYTOLOGY TARGETS AS AT : &
  314. Doctors Details
  315. ---------------
  316. &                        GP Code :
  317. &
  318. &
  319. &
  320. -----------------------------------------------------------------------------------------------------------------------------------
  321.                                         This print was printed on &
  322.                                   The totals below relate to women in the age range 25 - 64
  323.                1] Total number of women in the age range 25 - 64............................................. : &
  324.                2] Women ceased............................................................................... : 0
  325.                3] Women Suspended,not due to Test result..................................................... : 0
  326.                4] Women outside DHA coverage parameters - women with no Cytology record (not yet called)..... : 0
  327.                5] Women who are not eligible, (those that have had a complete hysterectomy).................. : &
  328.                6] Women who are eligible 1 - 5............................................................... : &
  329.                7] 80% of 6................................................................................... : &
  330.                8] 50% of 6................................................................................... : &
  331.                9] Women who have been adequately smeared..................................................... : &
  332.               10] Women who have been inadequately smeared................................................... : 0
  333.               11] Women who have been adequately smeared under GMS........................................... : &
  334.               12] Women who have been inadequately smeared under GMS......................................... : &
  335.               13] Percentage of 11 against 7................................................................ : &
  336.               14] Percentage of 11 against 8................................................................ : &
  337.               15] Percentage of 9 versus 6.................................................................. : &
  338.               16] Women invited for a test but not yet responded............................................ :
  339.               17] Women adequately smeared in the last 66 months............................................ : &
  340.               18] Women adequately smeared under GMS in the last 66 months.................................. : &
  341.                                                  GP CYTOLOGY TARGETS SUMMARY SHEET
  342. I certify that the patients have been Smeared as indicated and I claim the appropriate feee for the patients as summarised below
  343. Forms should be returned to your responsible FPC by &        in order for payment to be made on &
  344.                                  Totals from all FPC's with the 'Responsible' FPC listed first
  345.                                                     TOTAL NO. OF ELIGABLE WOMEN       WOMEN SMEARED     WOMEN SMEARED UNDER GMS
  346. NORTH YORKSHIRE FPC                                            [&   ]                   [&   ]                   [&   ]
  347.                                                     ----------------------------------------------------------------------------
  348.                                                     TOTAL      [&   ]                   [&   ]                   [&   ]
  349.                                                                  Name of Doctor : &
  350.                                                                         GP code :
  351.                                                             Signature of Doctor : ....................................
  352.                                                                            Date :
  353.  
  354.  
  355.  
  356.  
  357.  
  358.  
  359. \
  360. TD
  361. TO_DATE
  362. DOC_NAME
  363. AD1
  364. AD2
  365. AD3
  366. TD
  367. TOT_WOM
  368. TOT_HYS
  369. MINUS
  370. PC_ATE
  371. PC_FIVE
  372. TOT_SMOK
  373. TOT_SMOKG
  374. TOT_SMNOG
  375. PC_SEV
  376. PC_SIX
  377. PC_NINE
  378. TOT_SMOK
  379. TOT_SMOKG
  380. IN_BY
  381. Q_END
  382. MINUS
  383. TOT_SMOK
  384. TOT_SMOKG
  385. MINUS
  386. TOT_SMOK
  387. TOT_SMOKG
  388. DOC_NAME
  389. \
  390.